home *** CD-ROM | disk | FTP | other *** search
/ William Shakespeare - The Complete Works / William Shakespeare - The Complete Works on CD-ROM.iso / library / dgw / titles.bas < prev    next >
Encoding:
BASIC Source File  |  1994-06-21  |  400 b   |  18 lines
  1. c = 0
  2. OPEN "text.dgw" FOR INPUT AS #1
  3. OPEN "title.dgw" FOR OUTPUT AS #3
  4. DO
  5. LINE INPUT #1, n$
  6. LINE INPUT #1, t$
  7. LINE INPUT #1, a$
  8. PRINT MID$(t$, 7)
  9. OPEN "\library\text\titles\" + MID$(STR$(c), 2) + ".txt" FOR OUTPUT AS #2
  10. PRINT #2, MID$(t$, 7)
  11. CLOSE #2
  12. PRINT #3, "{"; MID$(STR$(c), 2, 5); "}"
  13. PRINT #3, "TEXT_text\titles\"; MID$(STR$(c), 2); ".txt"
  14. c = c + 1
  15. LOOP UNTIL EOF(1)
  16. CLOSE
  17.  
  18.